home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / PInterface Translator / PInterfaces / CTBUtilities.p < prev    next >
Encoding:
Text File  |  1993-09-16  |  3.4 KB  |  147 lines  |  [TEXT/MPS ]
  1. {
  2.     CTBUtilities.p
  3.     Pascal Interface to the Communications Toolbox Utilities
  4.     
  5.     Copyright © Apple Computer, Inc. 1988-90
  6.     All rights reserved
  7. }
  8. {$IFC UNDEFINED UsingIncludes}
  9. {$SETC UsingIncludes := 0}
  10. {$ENDC}
  11.  
  12. {$IFC NOT UsingIncludes}
  13.     UNIT CTBUtilities;
  14.     INTERFACE
  15. {$ENDC}
  16.  
  17. {$IFC UNDEFINED UsingCTBUtilities}
  18. {$SETC UsingCTBUtilities := 1}
  19.  
  20. {$I+}
  21. {$SETC CTBUtilitiesIncludes := UsingIncludes}
  22. {$SETC UsingIncludes := 1}
  23. {$IFC UNDEFINED UsingMemory}
  24. {$I $$Shell(PInterfaces)Memory.p}
  25. {$ENDC}
  26. {$IFC UNDEFINED UsingPackages}
  27. {$I $$Shell(PInterfaces)Packages.p}
  28. {$ENDC}
  29. {$IFC UNDEFINED UsingAppleTalk}
  30. {$I $$Shell(PInterfaces)AppleTalk.p}
  31. {$ENDC}
  32. {$IFC UNDEFINED UsingDialogs}
  33. {$I $$Shell(PInterfaces)Dialogs.p}
  34. {$ENDC}
  35. {$SETC UsingIncludes := CTBUtilitiesIncludes}
  36.  
  37. CONST
  38. { version of the Comm Toolbox Utilities }
  39.     curCTBUVersion        = 2;
  40.     
  41. { CTBUErr}
  42.     ctbuGenericError    = -1;
  43.     ctbuNoErr            = 0;
  44.  
  45. { DITLMethod }
  46.     overlayDITL         = 0;
  47.     appendDITLRight     = 1;
  48.     appendDITLBottom     = 2;
  49.  
  50. { Choose responses }
  51.     chooseDisaster        = -2;
  52.     chooseFailed        = -1;
  53.     chooseAborted        =  0;
  54.     chooseOKMinor        =  1;
  55.     chooseOKMajor        =  2;
  56.     chooseCancel        =  3;
  57.  
  58. { NuLookup responses }
  59.     nlOk                =    0;
  60.     nlCancel            =    1;
  61.     nlEject                =    2;
  62.     
  63. { Name FilterProc responses }
  64.     nameInclude            =    1;
  65.     nameDisable            =    2;
  66.     nameReject            =    3;
  67.     
  68. { Zone FilterProc responses }
  69.     zoneInclude            =    1;
  70.     zoneDisable            =    2;
  71.     zoneReject            =    3;
  72.     
  73. { Dialog items for hook procedure }
  74.     hookOK                =    1;
  75.     hookCancel             =    2;
  76.     hookOutline            =    3;
  77.     hookTitle            =    4;
  78.     hookItemList        =    5;
  79.     hookZoneTitle        =    6;
  80.     hookZoneList        =    7;
  81.     hookLine            =    8;
  82.     hookVersion            =    9;
  83.     hookReserved1        =    10;
  84.     hookReserved2         =    11;
  85.     hookReserved3        =    12;
  86.     hookReserved4        =    13;
  87. { Virtual items in the dialog item list }
  88.     hookNull            =    100;
  89.     hookItemRefresh        =    101;
  90.     hookZoneRefresh        =    102;
  91.     hookEject            =    103;
  92.     hookPreflight        =    104;
  93.     hookPostflight        =    105;
  94.     hookKeyBase            =    1000;
  95.     
  96. TYPE
  97.     CTBUErr     = OSErr;
  98.     DITLMethod     = INTEGER;
  99.     
  100.     NLTypeEntry = RECORD
  101.         hIcon        : Handle;
  102.         typeStr     : Str32;
  103.     END;
  104.     
  105.     NLType         = Array[0..3] of NLTypeEntry;
  106.     
  107.     NBPReply = RECORD
  108.         theEntity    :    EntityName;
  109.         theAddr        :    AddrBlock;
  110.     END;
  111.     
  112.  
  113. FUNCTION    InitCTBUtilities: CTBUErr;
  114. FUNCTION    CTBGetCTBVersion : INTEGER;
  115.  
  116. PROCEDURE     AppendDITL(theDialog: DialogPtr; theDITL: Handle; method: DITLMethod);
  117. FUNCTION     CountDITL(theDialog: DialogPtr) : INTEGER;
  118. PROCEDURE     ShortenDITL(theDialog: DialogPtr; numberItems: INTEGER);
  119.  
  120. FUNCTION    StandardNBP(where: Point; prompt: Str255; numTypes: INTEGER;
  121.                      typeList: NLType; nameFilter: ProcPtr; zoneFilter: ProcPtr;
  122.                      hookProc: ProcPtr; VAR theReply: NBPReply) : INTEGER;
  123.  
  124. FUNCTION    CustomNBP(where: Point; prompt: Str255; numTypes: INTEGER;
  125.                    typeList: NLType; nameFilter: ProcPtr; zoneFilter: ProcPtr;
  126.                    hookProc: ProcPtr; userData: LONGINT; dialogID: INTEGER; 
  127.                    filterProc: ProcPtr; VAR theReply: NBPReply) : INTEGER;                   
  128.  
  129. { Obsolete synonyms for above routines }
  130.  
  131. FUNCTION    NuLookup(where: Point; prompt: Str255; numTypes: INTEGER;
  132.                      typeList: NLType; nameFilter: ProcPtr; zoneFilter: ProcPtr;
  133.                      hookProc: ProcPtr; VAR theReply: NBPReply) : INTEGER;
  134.  
  135. FUNCTION    NuPLookup(where: Point; prompt: Str255; numTypes: INTEGER;
  136.                    typeList: NLType; nameFilter: ProcPtr; zoneFilter: ProcPtr;
  137.                    hookProc: ProcPtr; userData: LONGINT; dialogID: INTEGER; 
  138.                    filterProc: ProcPtr; VAR theReply: NBPReply) : INTEGER;
  139.                    
  140.  
  141. {$ENDC}    { UsingCTBUtilities }
  142.  
  143. {$IFC NOT UsingIncludes}
  144.     END.
  145. {$ENDC}
  146.  
  147.